home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Ss-Sz / Stack Starter ß.979 / Stack Starter fl.979 / background_7045.txt < prev    next >
Encoding:
Text File  |  1989-07-29  |  32.8 KB  |  1,237 lines
  1. -- background: 7045 from stack: in.979
  2. -- bmap block id: 4445
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Effects Editor
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put the short name of this card into bkgnd field "Title"
  9.   put "Prev Card:" && short name of prev card into field id 78
  10.   put "Next Card:" && short name of next card into field id 79
  11.   pass openCard
  12. end openCard
  13.  
  14. on mouseEnter
  15.   global TargetEnter, NewBtn, NewBtnid, NewBtnN
  16.   if TargetEnter <> empty then
  17.     wait 60
  18.     put the short name of the target into NewBtn
  19.     put the target into NewBtnN
  20.     put the id of the target into NewBtnid
  21.     put "Change font of " & NewBtnN
  22.     if word 2 of NewBtnN <> "Button" then exit mouseEnter
  23.     if word 2 of NewBtn is "Button" then
  24.       ask "This Button needs a name." with "Please, type name here."
  25.       if it is empty then exit mouseEnter
  26.       set name of NewBtnN to it
  27.       put it into NewBtn
  28.     end if
  29.     answer "Change font of " & NewBtnN with "Cancel" or "OK"
  30.     if it is "Cancel" then exit mouseEnter
  31.     put empty into TargetEnter
  32.     hide msg
  33.     iconCheck
  34.   end if
  35. end mouseEnter
  36.  
  37.  
  38.  
  39. -- part 74 (button)
  40. -- low flags: 00
  41. -- high flags: 0001
  42. -- rect: left=114 top=67 right=311 bottom=491
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: Grid Cover
  51.  
  52.  
  53. -- part 17 (button)
  54. -- low flags: 00
  55. -- high flags: 8004
  56. -- rect: left=26 top=121 right=171 bottom=65
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 4315 / 4315
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Effects
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   global Speed, Color
  68.   repeat with i = 4312 to 4315
  69.     set icon of me to i
  70.   end repeat
  71.   repeat with i = 24 to 25
  72.     set the visible of card field id i to not the visible of card field id i
  73.   end repeat
  74.   set scroll of card field "Visual Effects" to 0
  75.   repeat with i = 42 to 45
  76.     set the visible of card btn id i to not the visible of card btn id i
  77.   end repeat
  78.   if the visible of card field "Visual Effects" is true then
  79.     set hilite of me to true
  80.     repeat with i = 22 to 25
  81.       set style of bkgnd btn id i to rectangle
  82.     end repeat
  83.   else
  84.     set hilite of me to false
  85.     repeat with i = 22 to 25
  86.       set style of bkgnd btn id i to transparent
  87.     end repeat
  88.     repeat with i = 18 to 19
  89.       if hilite of bkgnd btn id i is true then
  90.         send mouseUp to bkgnd btn id i
  91.       end if
  92.     end repeat
  93.     put empty into card field "Test"
  94.   end if
  95.   put empty into Color
  96.   put empty into Speed
  97.   pass mouseUp
  98. end mouseUp
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105. -- part 18 (button)
  106. -- low flags: 00
  107. -- high flags: 8004
  108. -- rect: left=68 top=121 right=171 bottom=107
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 14283 / 14283
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: Speed
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   set hilite of me to not hilite of me
  120.   if hilite of me is true then effects
  121.   repeat with i = 26 to 29
  122.     set the visible of card btn id i to not the visible of card btn id i
  123.   end repeat
  124.   pass mouseUp
  125. end mouseUp
  126.  
  127.  
  128.  
  129. -- part 19 (button)
  130. -- low flags: 00
  131. -- high flags: 8004
  132. -- rect: left=68 top=174 right=224 bottom=107
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 23177 / 23177
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: Color
  141. ----- HyperTalk script -----
  142. on mouseUp
  143.   set hilite of me to not hilite of me
  144.   if hilite of me is true then effects
  145.   repeat with i = 30 to 33
  146.     set the visible of card btn id i to not the visible of card btn id i
  147.   end repeat
  148.   pass mouseUp
  149. end mouseUp
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156. -- part 20 (button)
  157. -- low flags: 00
  158. -- high flags: A004
  159. -- rect: left=26 top=235 right=285 bottom=65
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 4188 / 4188
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: Info
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   do short name of me
  171. end mouseUp
  172.  
  173.  
  174.  
  175. -- part 21 (button)
  176. -- low flags: 00
  177. -- high flags: A004
  178. -- rect: left=68 top=235 right=285 bottom=107
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 4179 / 4179
  181. -- text alignment: 1
  182. -- font id: 0
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: Map
  187. ----- HyperTalk script -----
  188. on mouseUp
  189.   doMenu short name of me
  190. end mouseUp
  191.  
  192.  
  193. -- part 22 (button)
  194. -- low flags: 00
  195. -- high flags: 2000
  196. -- rect: left=200 top=268 right=291 bottom=225
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 1014 / 1014
  199. -- text alignment: 1
  200. -- font id: 0
  201. -- text size: 12
  202. -- style flags: 0
  203. -- line height: 16
  204. -- part name: Go To Previous Card
  205. ----- HyperTalk script -----
  206. on mouseUp
  207.   scroll L
  208.   go to prev card
  209. end mouseUp
  210.  
  211.  
  212.  
  213. -- part 23 (button)
  214. -- low flags: 00
  215. -- high flags: 2000
  216. -- rect: left=225 top=268 right=291 bottom=252
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 21700 / 21700
  219. -- text alignment: 1
  220. -- font id: 0
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: Go To Home Card
  225. ----- HyperTalk script -----
  226. on mouseUp
  227.   scroll D
  228.   go home
  229. end mouseUp
  230.  
  231.  
  232.  
  233. -- part 24 (button)
  234. -- low flags: 00
  235. -- high flags: 2000
  236. -- rect: left=252 top=268 right=291 bottom=276
  237. -- title width / last selected line: 0
  238. -- icon id / first selected line: 1013 / 1013
  239. -- text alignment: 1
  240. -- font id: 0
  241. -- text size: 12
  242. -- style flags: 0
  243. -- line height: 16
  244. -- part name: Go To Next Card
  245. ----- HyperTalk script -----
  246. on mouseUp
  247.   scroll R
  248.   go to next card
  249. end mouseUp
  250.  
  251.  
  252.  
  253. -- part 25 (button)
  254. -- low flags: 00
  255. -- high flags: 2000
  256. -- rect: left=462 top=268 right=291 bottom=485
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 1012 / 1012
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: Go Back 
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   scroll U
  268.   pop card
  269. end mouseUp
  270.  
  271.  
  272.  
  273. -- part 36 (button)
  274. -- low flags: 80
  275. -- high flags: 0000
  276. -- rect: left=83 top=161 right=174 bottom=98
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 1
  280. -- font id: 0
  281. -- text size: 12
  282. -- style flags: 0
  283. -- line height: 16
  284. -- part name: Date
  285.  
  286.  
  287. -- part 38 (field)
  288. -- low flags: 01
  289. -- high flags: 0000
  290. -- rect: left=13 top=32 right=66 bottom=495
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 1
  294. -- font id: 185
  295. -- text size: 26
  296. -- style flags: 10496
  297. -- line height: 34
  298. -- part name: Title
  299.  
  300.  
  301. -- part 43 (button)
  302. -- low flags: 00
  303. -- high flags: E004
  304. -- rect: left=210 top=311 right=327 bottom=264
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 1
  308. -- font id: 0
  309. -- text size: 12
  310. -- style flags: 0
  311. -- line height: 16
  312. -- part name: Effects
  313. ----- HyperTalk script -----
  314. on mouseUp
  315.   set hilite of me to true
  316.   beep
  317.   answer "You're already in" && quote & short name of me & quote & "."
  318. end mouseUp
  319.  
  320.  
  321.  
  322. -- part 51 (button)
  323. -- low flags: 80
  324. -- high flags: 4002
  325. -- rect: left=224 top=63 right=75 bottom=370
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 0 / 0
  328. -- text alignment: 1
  329. -- font id: 0
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: Mouse Loc
  334.  
  335.  
  336. -- part 52 (field)
  337. -- low flags: 80
  338. -- high flags: 0000
  339. -- rect: left=223 top=62 right=74 bottom=315
  340. -- title width / last selected line: 0
  341. -- icon id / first selected line: 0 / 0
  342. -- text alignment: 0
  343. -- font id: 3
  344. -- text size: 9
  345. -- style flags: 10496
  346. -- line height: 12
  347. -- part name: Mouse Loc1
  348.  
  349.  
  350. -- part 53 (field)
  351. -- low flags: 81
  352. -- high flags: 0000
  353. -- rect: left=312 top=62 right=76 bottom=369
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 0 / 0
  356. -- text alignment: 1
  357. -- font id: 3
  358. -- text size: 9
  359. -- style flags: 10496
  360. -- line height: 12
  361. -- part name: Mouse Loc2
  362. ----- HyperTalk script -----
  363. on idle
  364.   if the visible of field "Mouse Loc2" is true then
  365.     put the mouseLoc into field "Mouse Loc2"
  366.   end if
  367.   send idle to stack
  368.   exit idle
  369.   pass idle
  370. end idle
  371.  
  372.  
  373. -- part 72 (button)
  374. -- low flags: 80
  375. -- high flags: 4002
  376. -- rect: left=15 top=300 right=312 bottom=251
  377. -- title width / last selected line: 0
  378. -- icon id / first selected line: 0 / 0
  379. -- text alignment: 0
  380. -- font id: 0
  381. -- text size: 9
  382. -- style flags: 256
  383. -- line height: 12
  384. -- part name: Prev Card: knobs
  385. ----- HyperTalk script -----
  386. on mouseUp
  387.   scrollL
  388.   go to card char 12 to 99 of short name of me
  389. end mouseUp
  390.  
  391.  
  392.  
  393. -- part 73 (button)
  394. -- low flags: 80
  395. -- high flags: 4002
  396. -- rect: left=253 top=300 right=312 bottom=492
  397. -- title width / last selected line: 0
  398. -- icon id / first selected line: 0 / 0
  399. -- text alignment: 0
  400. -- font id: 0
  401. -- text size: 9
  402. -- style flags: 256
  403. -- line height: 12
  404. -- part name: Next Card: the field fabricater
  405. ----- HyperTalk script -----
  406. on mouseUp
  407.   scrollR
  408.   go to card char 12 to 99 of short name of me
  409. end mouseUp
  410.  
  411.  
  412.  
  413. -- part 78 (field)
  414. -- low flags: 81
  415. -- high flags: 0000
  416. -- rect: left=16 top=300 right=312 bottom=252
  417. -- title width / last selected line: 0
  418. -- icon id / first selected line: 0 / 0
  419. -- text alignment: 0
  420. -- font id: 3
  421. -- text size: 9
  422. -- style flags: 10496
  423. -- line height: 12
  424. -- part name: 
  425. ----- HyperTalk script -----
  426. on mouseUp
  427.   scrollL
  428.   go to card char 12 to 99 of short name of me
  429. end mouseUp
  430.  
  431.  
  432.  
  433. -- part 79 (field)
  434. -- low flags: 81
  435. -- high flags: 0000
  436. -- rect: left=253 top=300 right=313 bottom=492
  437. -- title width / last selected line: 0
  438. -- icon id / first selected line: 0 / 0
  439. -- text alignment: 0
  440. -- font id: 3
  441. -- text size: 9
  442. -- style flags: 10496
  443. -- line height: 12
  444. -- part name: 
  445. ----- HyperTalk script -----
  446. on mouseUp
  447.   scrollR
  448.   go to card char 12 to 99 of short name of me
  449. end mouseUp
  450.  
  451.  
  452.  
  453. -- part 80 (button)
  454. -- low flags: 80
  455. -- high flags: 6002
  456. -- rect: left=374 top=63 right=75 bottom=493
  457. -- title width / last selected line: 0
  458. -- icon id / first selected line: 0 / 0
  459. -- text alignment: 1
  460. -- font id: 0
  461. -- text size: 12
  462. -- style flags: 0
  463. -- line height: 16
  464. -- part name: FreeSpaceMon
  465.  
  466.  
  467. -- part 81 (field)
  468. -- low flags: 81
  469. -- high flags: 0000
  470. -- rect: left=374 top=62 right=74 bottom=466
  471. -- title width / last selected line: 0
  472. -- icon id / first selected line: 0 / 0
  473. -- text alignment: 0
  474. -- font id: 3
  475. -- text size: 9
  476. -- style flags: 10496
  477. -- line height: 12
  478. -- part name: FreeSpaceMon1
  479. ----- HyperTalk script -----
  480. on mouseDown
  481.   set the numberFormat to "0.00"
  482.   get the freeSize of this stack
  483.   put it / 1024 && "K" into FS
  484.   put FS into field "FreeSpaceMon2"
  485. end mouseDown
  486.  
  487.  
  488. -- part 82 (field)
  489. -- low flags: 81
  490. -- high flags: 0000
  491. -- rect: left=436 top=62 right=76 bottom=493
  492. -- title width / last selected line: 0
  493. -- icon id / first selected line: 0 / 0
  494. -- text alignment: 1
  495. -- font id: 3
  496. -- text size: 9
  497. -- style flags: 10496
  498. -- line height: 12
  499. -- part name: FreeSpaceMon2
  500. ----- HyperTalk script -----
  501. on mouseDown
  502.   set the numberFormat to "0.00"
  503.   get the freeSize of this stack
  504.   put it / 1024 && "K" into FS
  505.   put FS into field "FreeSpaceMon2"
  506. end mouseDown
  507.  
  508.  
  509. -- part 83 (button)
  510. -- low flags: 00
  511. -- high flags: C002
  512. -- rect: left=12 top=26 right=38 bottom=494
  513. -- title width / last selected line: 0
  514. -- icon id / first selected line: 0 / 0
  515. -- text alignment: 1
  516. -- font id: 0
  517. -- text size: 12
  518. -- style flags: 8192
  519. -- line height: 16
  520. -- part name: A | B | C | D | E | F | G | H |  I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z | + | -
  521. ----- HyperTalk script -----
  522. on mouseDown
  523.   global Fred, Nick
  524.   set hilite of me to true
  525.   lockcard
  526.   push card
  527.   go to bkgnd id 2295
  528.   if Fred <> empty then
  529.     if visible of field Fred is true then hide field Fred
  530.   end if
  531.   put the rect of the target into holder
  532.   put (item 1 of the clickloc) - (item 1 of the rect of me) into A
  533.   put (item 3 of the rect of me) - (item 1 of the rect of me) into B
  534.   put the numToChar of (trunc(A/(B/28))+65) into Fred
  535.   if Fred is empty then
  536.     pop card
  537.     exit mouseDown
  538.   else if Fred is "[" then indexAddName
  539.   else if Fred is "\" then indexDeleteName
  540.   else
  541.     play Fred
  542.     if the commandKey is down then indexEditMode
  543.     else
  544.       put (item 1 of the clickloc-6) into horiz
  545.       put (item 2 of holder)+12 into vert
  546.       if script of field Fred is empty then
  547.         answer "Oops, nothing to display." with "Sorry"
  548.         pop card
  549.         exit mouseDown
  550.       else
  551.         get HeirPopupMenu(script of field Fred,0, vert, horiz)
  552.         if it is "0" then exit mouseDown
  553.         put Item 1 of it into TheLine
  554.         put Item 2 of it into TheItem
  555.         if Item 2 of it <> 1 then
  556.           put item 1 of line TheLine of script of field Fred & item TheItem of line TheLine of script of field Fred into Sam
  557.         else
  558.           put (item 1 of line TheLine of script of field Fred) into Sam
  559.         end if
  560.         pop card
  561.         unlockcard
  562.         if Sam is "Menu Maker" then
  563.           answer "Sorry, This feature not yet supported"
  564.           exit mouseDown
  565.         else if Sam is "Menus" then
  566.           answer "Sorry, This feature not yet supported"
  567.           exit mouseDown
  568.         else if Sam is "Scripts" then
  569.           answer "Sorry, This feature not yet supported"
  570.           exit mouseDown
  571.         else if Sam is "Button Font Changer" then
  572.           changeFont
  573.           exit mouseDown
  574.         else if Sam is "Change Button Font" then
  575.           changeFont
  576.           exit mouseDown
  577.         else if Sam is "Crash" then
  578.           crash
  579.           exit mouseDown
  580.         else if Sam is "Create An Icon" then
  581.           MakeIcon
  582.           exit mousedown
  583.         else if Sam is "Credits" then
  584.           credits
  585.           exit mouseDown
  586.         else if Sam is "Cursors" then
  587.           cursors
  588.           exit mouseDown
  589.         else if Sam is "Date & Time" then
  590.           timeDate
  591.           exit mouseDown
  592.         else if Sam is "Dedications" then
  593.           dedications
  594.           exit mouseDown
  595.         else if Sam is "DeProtect Stack" then
  596.           deprotect1
  597.           exit mouseDown
  598.         else if Sam is "Disk Space Available" then
  599.           diskSpaceAvail
  600.           exit mouseDown
  601.         else if Sam is "Don't Click Here" then
  602.           overLoad
  603.           exit mouseDown
  604.         else if Sam is "Don't Panic" then
  605.           panic
  606.           exit mouseDown
  607.         else if Sam is "Edit This Bkgnd Script" then
  608.           edit script of this bkgnd
  609.           exit mouseDown
  610.         else if Sam is "Edit This Card Script" then
  611.           edit script of this card
  612.           exit mouseDown
  613.         else if Sam is "Edit This Stack Script" then
  614.           edit script of this stack
  615.           exit mouseDown
  616.         else if Sam is "Free Space in this stack" then
  617.           freeSpace
  618.           exit mouseDown
  619.         else if Sam is "Free Space Monitor" then
  620.           freeSpaceMon
  621.           exit mouseDown
  622.         else if Sam is "Get Specs" then
  623.           getSpecs
  624.           exit mouseDown
  625.         else if Sam is "Heap Space" then
  626.           heapSpaceAvail
  627.           exit mouseDown
  628.         else if Sam is "Hidden Buttons" then
  629.           ShowHiddenBtns
  630.           exit mouseDown
  631.         else if Sam is "Hidden Fields" then
  632.           ShowHiddenFields
  633.           exit mouseDown
  634.         else if Sam is "HyperCard Version?" then
  635.           HyperCardVersion
  636.           exit mouseDown
  637.         else if Sam is "HyperEdit" then
  638.           answer "Hold down the return Key and the shift Key"
  639.           exit mouseDown
  640.         else if Sam is "HyperSound‚Ñ¢" then
  641.           go to stack "HyperSound"
  642.           exit mouseDown
  643.         else if Sam is "Last Updated" then
  644.           updated
  645.           exit mouseDown
  646.         else if Sam is "List Next & Prev Cards" then
  647.           LNPC
  648.           exit mouseDown
  649.         else if Sam is "Make Icons" then
  650.           MakeIcon
  651.           exit mousedown
  652.         else if Sam is "Mouse Location" then
  653.           mouseLocation
  654.           exit mousedown
  655.         else if Sam is "Open Aplication" then
  656.           openApl
  657.           exit mouseDown
  658.         else if Sam is "Pixel Grid" then
  659.           piGrid
  660.           exit mouseDown
  661.         else if Sam is "ResCopy" then
  662.           ResCopy
  663.           exit mouseDown
  664.         else if Sam is "ResEdit" then
  665.           open "ResEdit 1.1B3"
  666.           exit mouseDown
  667.         else if Sam is "Script of Bkgnd..." then
  668.           bkgndScript
  669.           exit mouseDown
  670.         else if Sam is "Script of Button..." then
  671.           btnScript
  672.           exit mouseDown
  673.         else if Sam is "Script of Card..." then
  674.           cardScript
  675.           exit mouseDown
  676.         else if Sam is "Script of Field..." then
  677.           fieldScript
  678.           exit mouseDown
  679.         else if Sam is "Script of Stack..." then
  680.           stackScript
  681.           exit mouseDown
  682.         else if Sam is "Script of Home" then
  683.           HomeScript
  684.           exit mouseDown
  685.         else if Sam is "Scripts" then
  686.           answer "Sorry, This feature not yet supported"
  687.           exit mouseDown
  688.         else if Sam is "Show Heap Space" then
  689.           heapSpaceAvail
  690.           exit mouseDown
  691.         else if Sam is "Show Size of This Stack" then
  692.           SizeofStack
  693.           exit mouseDown
  694.         else if Sam is "SoundEdit‚Ñ¢" then
  695.           open SoundEdit
  696.           exit mouseDown
  697.         else if Sam is "Stack Space Available" then
  698.           stackSpaceAvail
  699.           exit mouseDown
  700.         else if Sam is "Updated Last" then
  701.           updated
  702.           exit mouseDown
  703.         else if Sam is "Time & Date" then
  704.           timeDate
  705.           exit mouseDown
  706.         else unlock
  707.         if Sam is "About Stack Starter" then go to card "the stack starter"
  708.         else if Sam is "Allover Analyzer" then go to card "the allover analyzer"
  709.         else if Sam is "Animated Icons 1" then go to card "animated icons 1"
  710.         else if Sam is "Animated Icons 2" then go to card "animated icons 2"
  711.         else if Sam is "Animated Icons 3" then go to card "animated icons 3"
  712.         else if Sam is "Animated Icons 4" then go to card "animated icons 4"
  713.         else if Sam is "Animated Icons 5" then go to card "animated icons 5"
  714.         else if Sam is "Animated Icons 6" then go to card "animated icons 6"
  715.         else if Sam is "Author" then author
  716.         else if Sam is "Button Breeder" then go to card "the button breeder"
  717.         else if Sam is "Buttons" then go to card "the button breeder"
  718.         else if Sam is "Cover" then go to card "the stack starter"
  719.         else if Sam is "Controls" then go to card "the controls cultivator"
  720.         else if Sam is "Crash" then crash
  721.         else if Sam is "Credits" then credits
  722.         else if Sam is "Dedications" then dedications
  723.         else if Sam is "Don't Panic" then panic
  724.         else if Sam is "Effects" then go to card "the effects editor"
  725.         else if Sam is "Effects Editor" then go to card "the effects editor"
  726.         else if Sam is "Explanations" then go to card "the stack starter"
  727.         else if Sam is "Fields" then go to card "the field fabricator"
  728.         else if Sam is "Field Fabricator" then go to card "the field fabricator"
  729.         else if Sam is "Free-Roaming Icons" then go to card "Animated Icons 1"
  730.         else if Sam is "Gauges" then go to card "meters and gauges"
  731.         else if Sam is "Graphic Examples" then pause
  732.         else if Sam is "Graphic Techniques" then pause
  733.         else if Sam is "Helpful Hierarchy" then go to card "the helpful hierarchy"
  734.         else if Sam is "Hierarchy" then go to card "the helpful hierarchy"
  735.         else if Sam is "HyperSound‚Ñ¢" then go to stack "HyperSound"
  736.         else if Sam is "Icon Iniatiator" then go to card "the icon iniatiator"
  737.         else if Sam is "Icons" then go to card "the icon iniatiator"
  738.         else if Sam is "Interactive Icons" then go to card "Animated Icons 1"
  739.         else if Sam is "Intro" then pause
  740.         else if Sam is "Keyboard Simulator" then go to card "Keyboard"
  741.         else if Sam is "Knobs" then go to card "knobs"
  742.         else if Sam is "Map" then go to card "the master map"
  743.         else if Sam is "Master Map" then go to card "the master map"
  744.         else if Sam is "Meters" then go to card "meters"
  745.         else if Sam is "Multi-Icon Buttons" then go to card "Multi-Icon Buttons"
  746.         else if Sam is "Open Aplication" then openApl
  747.         else if Sam is "Panic" then panic
  748.         else if Sam is "Pause" then pause
  749.         else if Sam is "Pushbuttons" then go to card "Pushbuttons Switches"
  750.         else if Sam is "Sliders" then go to card "sliders"
  751.         else if Sam is "Sounds" then go to card "the sound sampler"
  752.         else if Sam is "Speech" then go to card "the sound sampler"
  753.         else if Sam is "Switches" then go to card "Pushbuttons Switches"
  754.         else if Sam is "Tools" then go to card "the allover analyzer"
  755.         else if Sam is "Visual Effects" then go to card "the effects editor"
  756.         else if Sam is "XCMDs" then go to card "the master map"
  757.         else if Sam is "XFCNs" then go to card "the master map"
  758.         else
  759.           put "the " before Sam
  760.           go card Sam
  761.           if the result <> empty then answer "Sorry, this feature not yet supported."
  762.         end if
  763.       end if
  764.     end if
  765.   end if
  766.   hide msg
  767. end mouseDown
  768.  
  769. on indexAddName
  770.   global Fred
  771.   ask "What menu ITEM would you like to add?" with "Please type ITEM NAME here."
  772.   if it is "Please type ITEM NAME here." then
  773.   else if it is empty then
  774.   else
  775.     set cursor to 4
  776.     lockcard
  777.     put it into addName
  778.     put first char of addName into Fred
  779.     if Fred is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then beep 2
  780.     else
  781.       put LowerToUpper(char 1 of addName) into char 1 of addName
  782.       put script of field Fred into field Fred
  783.       put addName into line (number of lines in field Fred) + 1 of field Fred
  784.       put SortLines(field Fred, "A" ) into field Fred
  785.       put crunch(field Fred) into field Fred
  786.       set script of field Fred to field Fred
  787.     end  if
  788.   end  if
  789.   put empty into Fred
  790. end indexAddName
  791.  
  792. on indexDeleteName
  793.   global Fred
  794.   ask "Please enter the EXACT ITEM NAME to delete."
  795.   if it is empty then
  796.   else
  797.     put it into deName
  798.     answer "Delete" && quote & deName & quote & "?" with "Cancel" or "Yes"
  799.     if it is "Yes" then
  800.       set cursor to 4
  801.       lockcard
  802.       put first char of deName into Fred
  803.       if Fred is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then beep 2
  804.       else
  805.         put script of field Fred into field Fred
  806.         Repeat with i = 1 to (number of lines in field Fred + 1)
  807.           if line i of field Fred = dename then
  808.             delete line i of field Fred
  809.             exit repeat
  810.           end if
  811.         end repeat
  812.         --if i > (number of lines in field Fred) then
  813.         --beep 2
  814.         -- answer "You must type name exactly as it appears"
  815.         --else
  816.         put SortLines(field Fred, "A" ) into field Fred
  817.         put crunch(field Fred) into field Fred
  818.         set script of field Fred to field Fred
  819.         -- end if
  820.       end if
  821.     end if
  822.   end if
  823.   put empty into Fred
  824. end indexDeleteName
  825.  
  826. on indexEditMode
  827.   global Fred
  828.   edit script of field Fred
  829.   set cursor to 4
  830.   lockcard
  831.   put script of field Fred into field Fred
  832.   Repeat with i = 1 to number of lines in field Fred
  833.     put LowerToUpper(char 1 of line i of field Fred) into char 1 of line i of field Fred
  834.   end repeat
  835.   put SortLines(field Fred, "A" ) into field Fred
  836.   put crunch(field Fred) into field Fred
  837.   set script of field Fred to field Fred
  838. end indexEditMode
  839.  
  840. on mouseUp
  841.   set lockMessages to true
  842. end mouseUp
  843.  
  844.  
  845.  
  846. -- part 84 (button)
  847. -- low flags: 00
  848. -- high flags: 8004
  849. -- rect: left=12 top=311 right=327 bottom=59
  850. -- title width / last selected line: 0
  851. -- icon id / first selected line: 0 / 0
  852. -- text alignment: 1
  853. -- font id: 0
  854. -- text size: 12
  855. -- style flags: 0
  856. -- line height: 16
  857. -- part name: Cover
  858. ----- HyperTalk script -----
  859. on mouseUp
  860.   set hilite of me to true
  861.   doMenu short name of me
  862.   set hilite of me to false
  863. end mouseUp
  864.  
  865.  
  866.  
  867. -- part 85 (button)
  868. -- low flags: 00
  869. -- high flags: 8004
  870. -- rect: left=58 top=311 right=327 bottom=93
  871. -- title width / last selected line: 0
  872. -- icon id / first selected line: 0 / 0
  873. -- text alignment: 1
  874. -- font id: 0
  875. -- text size: 12
  876. -- style flags: 0
  877. -- line height: 16
  878. -- part name: Map
  879. ----- HyperTalk script -----
  880. on mouseUp
  881.   set hilite of me to true
  882.   doMenu short name of me
  883.   set hilite of me to false
  884. end mouseUp
  885.  
  886.  
  887.  
  888. -- part 86 (button)
  889. -- low flags: 00
  890. -- high flags: 8004
  891. -- rect: left=92 top=311 right=327 bottom=151
  892. -- title width / last selected line: 0
  893. -- icon id / first selected line: 0 / 0
  894. -- text alignment: 1
  895. -- font id: 0
  896. -- text size: 12
  897. -- style flags: 0
  898. -- line height: 16
  899. -- part name: Buttons
  900. ----- HyperTalk script -----
  901. on mouseUp
  902.   set hilite of me to true
  903.   doMenu short name of me
  904.   set hilite of me to false
  905. end mouseUp
  906.  
  907.  
  908.  
  909. -- part 87 (button)
  910. -- low flags: 00
  911. -- high flags: 8004
  912. -- rect: left=150 top=311 right=327 bottom=211
  913. -- title width / last selected line: 0
  914. -- icon id / first selected line: 0 / 0
  915. -- text alignment: 1
  916. -- font id: 0
  917. -- text size: 12
  918. -- style flags: 0
  919. -- line height: 16
  920. -- part name: Controls
  921. ----- HyperTalk script -----
  922. on mouseUp
  923.   set hilite of me to true
  924.   doMenu short name of me
  925.   set hilite of me to false
  926. end mouseUp
  927.  
  928.  
  929.  
  930. -- part 88 (button)
  931. -- low flags: 00
  932. -- high flags: 8004
  933. -- rect: left=264 top=311 right=327 bottom=310
  934. -- title width / last selected line: 0
  935. -- icon id / first selected line: 0 / 0
  936. -- text alignment: 1
  937. -- font id: 0
  938. -- text size: 12
  939. -- style flags: 0
  940. -- line height: 16
  941. -- part name: Fields
  942. ----- HyperTalk script -----
  943. on mouseUp
  944.   set hilite of me to true
  945.   doMenu short name of me
  946.   set hilite of me to false
  947. end mouseUp
  948.  
  949.  
  950.  
  951. -- part 89 (button)
  952. -- low flags: 00
  953. -- high flags: 8004
  954. -- rect: left=309 top=311 right=327 bottom=352
  955. -- title width / last selected line: 0
  956. -- icon id / first selected line: 0 / 0
  957. -- text alignment: 1
  958. -- font id: 0
  959. -- text size: 12
  960. -- style flags: 0
  961. -- line height: 16
  962. -- part name: Icons
  963. ----- HyperTalk script -----
  964. on mouseUp
  965.   set hilite of me to true
  966.   doMenu short name of me
  967.   set hilite of me to false
  968. end mouseUp
  969.  
  970.  
  971.  
  972. -- part 90 (button)
  973. -- low flags: 00
  974. -- high flags: 8004
  975. -- rect: left=351 top=311 right=327 bottom=404
  976. -- title width / last selected line: 0
  977. -- icon id / first selected line: 0 / 0
  978. -- text alignment: 1
  979. -- font id: 0
  980. -- text size: 12
  981. -- style flags: 0
  982. -- line height: 16
  983. -- part name: Scripts
  984. ----- HyperTalk script -----
  985. on mouseUp
  986.   set hilite of me to true
  987.   doMenu short name of me
  988.   set hilite of me to false
  989. end mouseUp
  990.  
  991.  
  992.  
  993. -- part 91 (button)
  994. -- low flags: 00
  995. -- high flags: 8004
  996. -- rect: left=403 top=311 right=327 bottom=455
  997. -- title width / last selected line: 0
  998. -- icon id / first selected line: 0 / 0
  999. -- text alignment: 1
  1000. -- font id: 0
  1001. -- text size: 12
  1002. -- style flags: 0
  1003. -- line height: 16
  1004. -- part name: Sounds
  1005. ----- HyperTalk script -----
  1006. on mouseUp
  1007.   set hilite of me to true
  1008.   doMenu short name of me
  1009.   set hilite of me to false
  1010. end mouseUp
  1011.  
  1012.  
  1013.  
  1014. -- part 92 (button)
  1015. -- low flags: 00
  1016. -- high flags: 8000
  1017. -- rect: left=454 top=311 right=327 bottom=494
  1018. -- title width / last selected line: 0
  1019. -- icon id / first selected line: 0 / 0
  1020. -- text alignment: 1
  1021. -- font id: 0
  1022. -- text size: 12
  1023. -- style flags: 0
  1024. -- line height: 16
  1025. -- part name: Tools
  1026. ----- HyperTalk script -----
  1027. on mouseUp
  1028.   set hilite of me to true
  1029.   doMenu short name of me
  1030.   set hilite of me to false
  1031. end mouseUp
  1032.  
  1033.  
  1034.  
  1035. -- part 93 (button)
  1036. -- low flags: 00
  1037. -- high flags: A004
  1038. -- rect: left=26 top=174 right=224 bottom=65
  1039. -- title width / last selected line: 0
  1040. -- icon id / first selected line: 29399 / 29399
  1041. -- text alignment: 1
  1042. -- font id: 0
  1043. -- text size: 12
  1044. -- style flags: 0
  1045. -- line height: 16
  1046. -- part name: MorEFX
  1047. ----- HyperTalk script -----
  1048. on mouseDown
  1049.   put the rect of the target into holder
  1050.   put item 1 of holder into horiz
  1051.   put item 2 of holder into vert
  1052.   get PopUpMenu(" Moire ; Modrian ; Stripes ",3, vert, horiz)
  1053.   hideall
  1054.   if it is empty then
  1055.   else if it is 1 then
  1056.     answer "Sorry, That feature is not yet supported."
  1057.   else if it is 2 then
  1058.     reset paint
  1059.     choose bucket tool
  1060.     set pattern to 1
  1061.     click at 0,0
  1062.     choose select tool
  1063.     set dragSpeed to 1000
  1064.     repeat forever
  1065.       drag from random(256),random(171) to (random(256) + 255),(random(171) + 170)
  1066.       if the mouse is down then
  1067.         cleanUp
  1068.         exit mouseDown
  1069.       end if
  1070.       doMenu "Invert"
  1071.       choose select tool
  1072.     end repeat
  1073.   else if it is 3 then
  1074.     choose brush tool
  1075.     set brush to 1
  1076.     repeat with i = 40 down to 1
  1077.       set pattern to i
  1078.       drag from 0,9 * (i-1) to 512 ,9 * (i-1)
  1079.       drag from 13 * (i-1), 10 to 13 * (i-1), 400
  1080.       if the mouse is down then
  1081.         cleanUp
  1082.         exit mouseDown
  1083.       end if
  1084.     end repeat
  1085.     choose browse tool
  1086.   else
  1087.     cleanUp
  1088.   end if
  1089.   wait until the mouseClick
  1090.   cleanUp
  1091. end mouseDown
  1092.  
  1093. on cleanUp
  1094.   choose select tool
  1095.   doMenu "Select All"
  1096.   doMenu "Clear Picture"
  1097.   choose browse tool
  1098.   show menubar
  1099. end cleanUp
  1100.  
  1101.  
  1102.  
  1103. -- part 94 (button)
  1104. -- low flags: 00
  1105. -- high flags: C002
  1106. -- rect: left=15 top=62 right=75 bottom=221
  1107. -- title width / last selected line: 0
  1108. -- icon id / first selected line: 0 / 0
  1109. -- text alignment: 1
  1110. -- font id: 3
  1111. -- text size: 9
  1112. -- style flags: 256
  1113. -- line height: 12
  1114. -- part name: Volume | Fonts | Style | Size | Height
  1115. ----- HyperTalk script -----
  1116. on mouseDown
  1117.   global ActiveField
  1118.   set hilite of me to true
  1119.   put "field id 13" into jim
  1120.   put the rect of the target into holder
  1121.   put (item 1 of the clickloc) - (item 1 of the rect of me) into A
  1122.   put (item 3 of the rect of me)-(item 1 of the rect of me) into B
  1123.   put trunc(A/(B/5))into joe
  1124.   if Joe is empty then
  1125.   else
  1126.     put (item 1 of the clickloc-6) into horiz
  1127.     put (item 2 of holder)+13 into vert
  1128.     if joe is "0" then
  1129.       get PopUpMenu(" 0 ; 1 ; 2 ; 3 ; 4 ; 5 ; 6 ; 7 ", 0, vert, horiz)
  1130.       if it is "0" then
  1131.       else
  1132.         put word it of " 0  1  2  3  4  5  6  7" into sam
  1133.         SetVolume(sam)
  1134.         play harpsichord "c ew"
  1135.       end if
  1136.     else if Joe is "1" then
  1137.       if script of field "fontField" is empty then
  1138.         answer "Oops, no FONTS in this system." with "Sorry"
  1139.         exit mouseDown
  1140.       else
  1141.         get PopUpMenu(script of field "fontField",0, vert, horiz)
  1142.         if it is "0" then
  1143.         else
  1144.           put (line it of script of field "fontField") into Sam
  1145.           if ActiveField <> empty then
  1146.             set textFont of ActiveField to sam
  1147.           else set textFont to sam
  1148.         end if
  1149.       end if
  1150.     else if Joe is "2" then
  1151.       get PopUpMenu(" Plain ; Bold ; Italic ; Underline ; Outline ; Shadow ; Condense ; Extend ;(----------) ; Left ; Center ; Right ", 0, vert, horiz)
  1152.       if it is "0" then
  1153.       else
  1154.         put word it of " Plain Bold Italic Underline Outline Shadow Condense Extend -- Left Center Right" into sam
  1155.         if ActiveField <> empty then
  1156.           if sam is "Plain" then set textStyle of ActiveField to plain
  1157.           else if sam is "Left" then set textAlign of ActiveField to left
  1158.           else if sam is "Center" then set textAlign of ActiveField to center
  1159.           else if sam is "Right" then set textAlign of ActiveField to right
  1160.           else if textStyle of ActiveField is "Plain" then set textStyle of ActiveField to sam
  1161.           else
  1162.             put "set textStyle of" && ActiveField && "to" && ((textStyle of ActiveField) & "," && sam) into temp
  1163.             do (temp)
  1164.           end if
  1165.         else
  1166.           if sam is "Plain" then set textStyle to sam
  1167.           else if sam is "Left" then set textAlign to left
  1168.           else if sam is "Center" then set textAlign to center
  1169.           else if sam is "Right" then set textAlign to right
  1170.           else if the textStyle is "Plain" then set textStyle to sam
  1171.           else
  1172.             put "set textStyle" && "to" && ((the textStyle) & "," && sam) into temp
  1173.             do (temp)
  1174.           end if
  1175.         end if
  1176.       end if
  1177.     else if Joe is "3" then
  1178.       get PopUpMenu(" 6 ; 8 ; 9 ; 10 ; 12 ; 14 ; 18 ; 24 ; 36 ; 48 ; 52 ; 72 ", 0, vert, horiz)
  1179.       if it is "0" then
  1180.       else
  1181.         put word it of " 6 8 9 10 12 14 18 24 36 48 52 72 " into sam
  1182.         if ActiveField <> empty then
  1183.           set textSize of ActiveField to sam
  1184.         else set textSize to sam
  1185.       end if
  1186.     else if Joe is "4" then
  1187.       get PopUpMenu(" +1 ; -1 ; +3 ; -3 ; +5 ; -5 ; +10 ; -10 ", 0, vert, horiz)
  1188.       if it is "0" then
  1189.       else
  1190.         put word it of " +1  -1  +3  -3  +5  -5  +10  -10 " into sam
  1191.         if ActiveField <> empty then
  1192.           put "set textHeight of" && ActiveField && "to (" & (textHeight of ActiveField) & (sam) & ")" into temp
  1193.           do (temp)
  1194.         end if
  1195.       end if
  1196.     end if
  1197.   end if
  1198. end mouseDown
  1199.  
  1200. on mouseUp
  1201.  
  1202. end mouseUp
  1203.  
  1204.  
  1205.  
  1206. -- part 95 (button)
  1207. -- low flags: 00
  1208. -- high flags: C002
  1209. -- rect: left=15 top=39 right=52 bottom=118
  1210. -- title width / last selected line: 0
  1211. -- icon id / first selected line: 0 / 0
  1212. -- text alignment: 1
  1213. -- font id: 3
  1214. -- text size: 9
  1215. -- style flags: 256
  1216. -- line height: 12
  1217. -- part name: Set UserLevel To:
  1218. ----- HyperTalk script -----
  1219. on mouseDown
  1220.   set hilite of me to true
  1221.   put the loc of me into holder
  1222.   put (item 1 of holder-52) into horiz
  1223.   put (item 2 of holder)+8 into vert
  1224.   get PopUpMenu("1   Browsing ;2   Typing ;3   Painting ;4  Authoring ;5   Scripting ", 0, vert, horiz)
  1225.   if it is "0" then set userlevel to 1
  1226.   else if it is "1" then set userlevel to 2
  1227.   else if it is "2" then set userlevel to 3
  1228.   else if it is "3" then set userlevel to 4
  1229.   else if it is "4" then set userlevel to 5
  1230.   else exit mouseDown
  1231. end mouseDown
  1232.  
  1233. on mouseUp
  1234.  
  1235. end mouseUp
  1236.  
  1237.